home *** CD-ROM | disk | FTP | other *** search
/ Games of Daze / Infomagic - Games of Daze (Summer 1995) (Disc 1 of 2).iso / x2ftp / msdos / mxcode / sbmixer / mix16tst.pas < prev    next >
Pascal/Delphi Source File  |  1995-01-14  |  2KB  |  62 lines
  1. program Mix16Tst;
  2.   uses
  3.     SB16Mixr;
  4.   const
  5.     PreserveMixerState = false;
  6.       {If set to true, the mixer state will be restored when this program}
  7.       {terminates.  (See below)  Any changes made to the mixer's settings}
  8.       {will be undone on return to DOS.  This is considered good behavior}
  9.       {for any program that modifies mixer registers.  I have left it off}
  10.       {so that you can see what this program does by using SB16SET.      }
  11.     BaseIO = $220;
  12.     Reset = true;
  13.  
  14.    {Volumes}
  15.     vMaster_L = 24;  vMaster_R = 24;
  16.     vVoice_L  = 24;  vVoice_R  = 24;
  17.     vFM_L     = 24;  vFM_R     = 24;
  18.     vCD_L     = 24;  vCD_R     = 24;
  19.     vLine_L   = 24;  vLine_R   = 24;
  20.     vMic       = 24;
  21.     vPCSpeaker = 3;
  22.  
  23.    {Mixing switches}
  24.     Output  = {Mic +} CD_R + CD_L + Line_R + Line_L;
  25.     Input_L = Mic + CD_L + Line_L + FM_L {+ CD_R + Line_R + FM_R};
  26.     Input_R = Mic + CD_R + Line_R + FM_R {+ CD_L + Line_L + FM_L};
  27.  
  28.    {Gain settings}
  29.     InputGain_L  = 0;  InputGain_R  = 0;
  30.     OutputGain_L = 1;  OutputGain_R = 1;
  31.     MicAGC = On;
  32.  
  33.    {Treble and bass adjustment}
  34.     Treble_L = 08;  Treble_R = 08;
  35.     Bass_L   = 08;  Bass_R   = 08;
  36.   begin
  37.     InitMixer(BaseIO);
  38.  
  39.     if PreserveMixerState then SaveMixerState;
  40.     if Reset then ResetMixer;
  41.  
  42.     SetMasterVolume(vMaster_L, vMaster_R);
  43.     SetVoiceVolume(vVoice_L, vVoice_R);
  44.     SetFMVolume(vFM_L, vFM_R);
  45.     SetCDVolume(vCD_L, vCD_R);
  46.     SetLineVolume(vLine_L, vLine_R);
  47.     SetMicVolume(vMic);
  48.     SetPCSpeakerVolume(vPCSpeaker);
  49.  
  50.     SetOutputMixer(Output);
  51.     SetInputMixer(Input_L, Input_R);
  52.  
  53.     SetInputGain(InputGain_L, InputGain_R);
  54.     SetOutputGain(OutputGain_L, OutputGain_R);
  55.     SetMicAGC(MicAGC);
  56.  
  57.     SetTreble(Treble_L, Treble_R);
  58.     SetBass(Bass_L, Bass_R);
  59.  
  60.     if PreserveMixerState then RestoreMixerState;
  61.   end.
  62.